/***************************************************************************/
/* Procedimiento:  BuquesInsertar
/* Descripcion:   Insertar una fila en la tabla operacion.Buques
/* Parametros:    ?InfoParametros
/*                pTransaccion. Numero identificador de la Transaccion
/*                pMensaje. Mensaje de comfirmacion o excepcion
/* Comentarios:         
/****************************************************************************/

PROCEDURE  BuquesInsertar(pnom_Corto_Buque VARCHAR2, pdesc_Buque VARCHAR2, 
						ppais NUMBER, ptipo_Buq NUMBER, pcalado NUMBER, 
						peslora NUMBER, pganchos NUMBER, pTRB NUMBER, 
						pmanga NUMBER, ppuntal NUMBER, pexcento_Puerto VARCHAR2, 
						pexcento_Atraque VARCHAR2, pnum_Serie VARCHAR2, pfecha_Modifica VARCHAR2, 
						phora_Modifica VARCHAR2, pnumeral VARCHAR2, pTRN NUMBER, 
						pcBaja CHAR, punidad_Calado VARCHAR2, pcombus_IFO NUMBER, 
						pcombus_DO NUMBER, punidad_Combus VARCHAR2, pcalado_Popa NUMBER, 
						pMMSI VARCHAR2, plinea_Naviera NUMBER, pTransaccion OUT NUMBER, pMensaje OUT VARCHAR2)
AS
BEGIN
  INSERT INTO operacion.Buques(buque, nom_Corto_Buque, desc_Buque, 
						pais, tipo_Buq, calado, 
						eslora, ganchos, TRB, 
						manga, puntal, excento_Puerto, 
						excento_Atraque, num_Serie, fecha_Modifica, 
						hora_Modifica, numeral, TRN, 
						cBaja, unidad_Calado, combus_IFO, 
						combus_DO, unidad_Combus, calado_Popa, 
						MMSI, linea_Naviera)
  VALUES               (seq_Buques.nextval, pnom_Corto_Buque, pdesc_Buque, 
						ppais, ptipo_Buq, pcalado, 
						peslora, pganchos, pTRB, 
						pmanga, ppuntal, pexcento_Puerto, 
						pexcento_Atraque, pnum_Serie, to_date(pfecha_Modifica,'DD/MM/YYYY HH24:MI:SS'), 
						phora_Modifica, pnumeral, pTRN, 
						pcBaja, punidad_Calado, pcombus_IFO, 
						pcombus_DO, punidad_Combus, pcalado_Popa, 
						pMMSI, plinea_Naviera);
  
  COMMIT;
  pTransaccion := 1;
  pMensaje := 'Terminado OK';
  dbms_output.put_line('Terminado OK');

EXCEPTION
  WHEN OTHERS THEN
    pTransaccion := 0;
    pMensaje := 'Error en  Buques_Insertar:' || SQLCODE || ' Mensaje: ' || sqlerrm;
    dbms_output.put_line('Error en  Buques_Insertar:' || SQLCODE || ' Mensaje: ' || sqlerrm);
END;
